home *** CD-ROM | disk | FTP | other *** search
/ PC & Mediji 1998 February / PCM_9802.iso / programi / director / data.z / Behavior Library.cst / 00047_Script_UI Rollover and Mouse Down Pointer Change < prev    next >
Text File  |  1997-05-09  |  4KB  |  95 lines
  1. -- Pointer Rollover and Mouse Down, Up
  2.  
  3.  
  4.  
  5. -- a control
  6. -- Changes the cursor when the cursor rollsover the sprite
  7. property outcurs, incurs, incursSet, customImage, customMask, customDownImage, customDownMask
  8. property incursDownSet, oldcursor
  9. property useCustom, useCustomDown
  10.  
  11. on translate_cursor me, setting, image, mask, custom
  12.   if custom then
  13.     set val = [ member image, member mask ]
  14.     return val
  15.   end if
  16.   return setting
  17. end
  18.  
  19.  
  20. --- 
  21.  
  22.  
  23. on beginSprite me
  24.   set oldcursor = the cursor of sprite the spritenum of me
  25.   set val =  translate_cursor( me, the incursSet of me, customImage, customMask, useCustom )
  26.   set the cursor of sprite the spriteNum of me = val
  27.   
  28. end
  29.  
  30. on endsprite me
  31.   set the cursor of sprite the spriteNum of me = oldcursor
  32. end
  33.  
  34. on mousedown me
  35.   set val =  translate_cursor( me, the incursDownSet of me, customDownImage, customDownMask, useCustomDown )
  36.   set the cursor of sprite the spriteNum of me = val
  37. end  
  38. on mouseupOutside me
  39.   set val =  translate_cursor( me, the incursSet of me, customImage, customMask, useCustom )
  40.   set the cursor of sprite the spriteNum of me = val
  41. end
  42. on mouseup me
  43.   set val =  translate_cursor( me, the incursSet of me, customImage, customMask, useCustom )
  44.   set the cursor of sprite the spriteNum of me = val
  45. end
  46.  
  47. on getPropertyDescriptionList
  48.   
  49.   set p_list = [ ¼
  50.      #incursSet: [ #comment:   "Rollover Pointer Image:", ¼
  51.                     #format:   #cursor, ¼
  52.                     #default:   1 ], ¼
  53.        #useCustom: [ #comment: "Use Custom Pointer:", ¼
  54.                     #format:   #boolean, ¼
  55.                    #default:    FALSE ], ¼
  56.   #customImage: [ #comment:   "Custom Image:", ¼
  57.                     #format:   #bitmap, ¼
  58.                    #default:    member 1 ], ¼
  59.     #customMask: [ #comment:   "Custom Mask:", ¼
  60.                     #format:   #bitmap, ¼
  61.                    #default:    member 1 ], ¼
  62.      #incursDownSet: [ #comment:   "Mouse Down Pointer Image:", ¼
  63.                     #format:   #cursor, ¼
  64.                    #default:   1], ¼
  65.        #useCustomDown: [ #comment: "Use Custom Pointer When Mouse Down:", ¼
  66.                     #format:   #boolean, ¼
  67.                    #default:    FALSE ], ¼
  68.   #customDownImage: [ #comment:   "Custom Down Image:", ¼
  69.                     #format:   #bitmap, ¼
  70.                    #default:    member 1 ], ¼
  71.     #customDownMask: [ #comment:   "Custom Down Mask:", ¼
  72.                     #format:   #bitmap, ¼
  73.                    #default:    member 1 ] ¼
  74.   ]
  75.   return p_list 
  76.   
  77. end
  78.  
  79.  
  80. on getBehaviorDescription
  81.   return ¼
  82. "Makes the pointer image change when the pointer is over the current sprite, also defines a different pointer image to display when the sprite is clicked. Choose any of the pointers included with Director or a 1-bit bitmapped cast member." & RETURN & ¼
  83. "PARAMETERS:" & RETURN & ¼
  84. "ò Rollover Pointer Image - Choose the pointer image to appear when the pointer rolls over the sprite. Select one of Director's included pointers."  & RETURN & ¼
  85. "ò Use Custom Pointer - Turn this option on to specify a cast member instead of an included pointer." & RETURN & ¼
  86. "ò Custom Image  - ( optional ) Choose a cast member to use as the pointer image.  This choice is ignored unless Use Custom Pointer is on."  & RETURN & ¼
  87. "ò Custom Mask - ( optional ) Choose a cast member to use as a mask image.  "&RETURN&¼
  88. "ò Mouse Down Pointer Image - Choose one of Director's included pointers to be displayed when the mouse is down."  & RETURN & ¼
  89. "ò Use Custom Pointer When Mouse Down - Turn this option on to specify a cast member as the mouse down pointer instead of one of Director's included pointers."  & RETURN & ¼
  90. "ò Custom Down Image  - ( optional ) Choose a cast member to use as a pointer image when the mouse is down.  This setting is ignored unless Use Custom Pointer When Mouse Down is on."  & RETURN & ¼
  91. "ò Custom Down Mask - ( optional ) Choose a cast member to use as a mask image when mouse is down."
  92.   
  93. end
  94.  
  95.